; Music of High Steel (1989) (Alternative Software)
; Ripped by Megachur the 19/02/2007

	write "HIGHSTEE.BIN"

music_date_rip	equ &1327
music_adr	equ &7000
first_theme	equ 0
last_theme	equ 4

	read "music_header_v1_0.asm"

;7000
;
.init_music	; a=0->4
;
	push af
	call l724f
	pop af
	ld c,a
	add a
	add c
	add a
	add c
	ld c,a
	ld b,#00
	ld hl,l7d29
	add hl,bc
	ld a,(hl)
	ld (l70f3),a
	ld (l756e),a
	inc hl
	ld ix,l7072
	ld c,#22
	ld a,#03
.l7021
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	push hl
	ld (ix+#10),#01
	ld (ix+#00),b
	ld (ix+#1d),b
	ld (ix+#1f),b
	ld (ix+#20),b
	ld hl,l7658
	ld (ix+#0b),l
	ld (ix+#09),l
	ld (ix+#0c),h
	ld (ix+#0a),h
	ld (ix+#03),e
	ld (ix+#04),d
	ex de,hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#05),#02
	ld (ix+#06),b
	pop hl
	ld (ix+#01),e
	ld (ix+#02),d
	add ix,bc
	dec a
	jr nz,l7021
	ld (l7488),a
	dec a
	ld (l756f),a
	ld (l7569),a
	ld a,#0f
	ld (l756d),a
	ret
.l7072
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#09
.l7094
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#12
.l70b6
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#24
;
.play_music
;
	ld a,(l7569)
	ld hl,l756a
	or (hl)
	inc hl
	or (hl)
	inc hl
	or (hl)
	ret z
	call l7890
	ld a,(l7569)
	and a
	jr z,l713e
.l70ee equ $ + 1
	ld a,#00
	ld (l713a),a
.l70f3 equ $ + 1
	ld a,#01
	ld hl,l756f
	add (hl)
	ld (hl),a
	jr nc,l7112
	ld b,#00
	ld ix,l7072
	call l737e
	ld ix,l7094
	call l737e
	ld ix,l70b6
	call l737e
.l7112
	ld ix,l7072
	call l7455
	ld (l7570),hl
	ld (l7578),a
	ld ix,l7094
	call l7455
	ld (l7572),hl
	ld (l7579),a
	ld ix,l70b6
	call l7455
	ld (l7574),hl
	ld (l757a),a
.l713a equ $ + 1
	ld a,#00
	ld (l7576),a
.l713e
	ld a,(l7569)
	and a
	jr nz,l7154
	ld (l7578),a
	ld (l7579),a
	ld (l757a),a
	ld a,#3f
	ld (l7577),a
	jr l717c
.l7154
	ld a,(l756d)
	and #0f
	xor #0f
	jr z,l717c
	ld b,a
	ld a,(l7578)
	sub b
	jr nc,l7165
	xor a
.l7165
	ld (l7578),a
	ld a,(l7579)
	sub b
	jr nc,l716f
	xor a
.l716f
	ld (l7579),a
	ld a,(l757a)
	sub b
	jr nc,l7179
	xor a
.l7179
	ld (l757a),a
.l717d equ $ + 1
.l717c
	ld a,#00
	xor #ff
	ld (l717d),a
	ld a,(l756a)
	and a
	jr z,l71ab
	ld hl,(l757d)
	ld (l7570),hl
	ld a,(l7cd1)
	ld b,a
	bit 3,a
	jr nz,l719d
	ld a,(l7583)
	ld (l7576),a
.l719d
	ld hl,l7577
	ld a,(hl)
	or #09
	and b
	ld (hl),a
	ld a,(l7585)
	ld (l7578),a
.l71ab
	ld a,(l756b)
	and a
	jr z,l71d5
	ld hl,(l757f)
	ld (l7572),hl
	ld a,(l7ce6)
	ld b,a
	bit 3,a
	jr nz,l71c5
	ld a,(l7583)
	ld (l7576),a
.l71c5
	ld hl,l7577
	ld a,(hl)
	or #12
	rlc b
	and b
	ld (hl),a
	ld a,(l7586)
	ld (l7579),a
.l71d5
	ld a,(l756c)
	and a
	jr z,l7201
	ld hl,(l7581)
	ld (l7574),hl
	ld a,(l7cfb)
	ld b,a
	bit 3,a
	jr nz,l71ef
	ld a,(l7583)
.l71ee equ $ + 2
	ld (l7576),a
.l71ef
	ld hl,l7577
	ld a,(hl)
	or #24
	rlc b
	rlc b
	and b
	ld (hl),a
	ld a,(l7587)
	ld (l757a),a
.l7201
	ld hl,l757a
	ld d,#0a
.l7206
	ld e,(hl)
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	dec hl
	dec d
	jp p,l7206
	ret
.l7227
	ld de,#0a00
.l722a
	call l7234
	dec d
	jp p,l722a
	ld de,#073f
.l7234
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	ret
;
.stop_music
.l724f
;
	xor a
	ld (l7569),a
	call l7261
	xor a
	ld (l7578),a
	ld (l7579),a
	ld (l757a),a
	ret
.l7261
	xor a
	ld (l756a),a
	ld (l756b),a
	ld (l756c),a
	jp l7227
	db #fa,#de,#d7,#e1,#a4,#e9,#e4,#3b
	db #c4,#b5,#7a,#64,#8c,#e7,#30,#f4
	db #f5,#fa,#b3,#13,#0a,#01
	ld a,(de)
	inc de
	ld (l756d),a
	jp l738c
	ld a,(de)
	inc de
	ld (l70f3),a
	jp l738c
	ld a,(de)
	ld (ix+#03),a
	ld l,a
	inc de
	ld a,(de)
	ld (ix+#04),a
	ld h,a
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#05),#02
	ld (ix+#06),b
	jp l738c
	pop hl
	jp l724f
	ld c,(ix+#05)
	ld b,(ix+#06)
	ld l,(ix+#03)
	ld h,(ix+#04)
	add hl,bc
	inc bc
	inc bc
	ld a,(hl)
	inc hl
	ld d,(hl)
	ld e,a
	or d
	jr nz,l72d2
	ld l,(ix+#03)
	ld h,(ix+#04)
	ld bc,#0002
	ld e,(hl)
	inc hl
	ld d,(hl)
.l72d2
	ld (ix+#05),c
	ld (ix+#06),b
	ld b,#00
	jp l738c
	ld a,(ix+#21)
	ld c,a
	and #07
	ld hl,l7534
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jp l738c
	ld a,(ix+#21)
	ld c,a
	and #38
	ld hl,l7534
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	xor a
	ld (ix+#1e),a
	jp l738c
	ld hl,l7534
	ld a,(ix+#21)
	cpl
	and (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jr l738c
	ld a,(de)
	inc de
	ld (ix+#07),b
	ld (ix+#08),b
	ld (ix+#0d),a
	set 2,(ix+#00)
	ld a,(de)
	ld (ix+#0e),a
	inc de
	jr l738c
	ld a,(de)
	inc de
	ld (l7488),a
	jr l738c
	ld a,(de)
	inc de
	ld (ix+#20),a
	jr l738c
	ld a,(de)
	ld (ix+#1b),a
	inc de
	ld a,(de)
	ld (ix+#1a),a
	ld (ix+#1c),a
	inc de
	ld (ix+#1d),#40
	jr l738c
	ld (ix+#1d),b
	jr l738c
	ld (ix+#1d),#c0
	jr l738c
	set 7,(ix+#00)
	set 3,(ix+#00)
	jr l738c
	set 1,(ix+#00)
	jr l738c
	ld (ix+#13),b
	res 5,(ix+#00)
	jr l73bb
	jr l73b7
	ld (ix+#1f),#ff
	jr l738c
	ld (ix+#1f),b
	jr l738c
.l737e
	dec (ix+#10)
	jr nz,l73f9
	ld (ix+#00),b
	ld e,(ix+#01)
	ld d,(ix+#02)
.l738c
	ld a,(de)
	inc de
	and a
	jp m,l740a
	ld (ix+#12),a
	bit 0,(ix+#1e)
	jr z,l739e
	ld (l70ee),a
.l739e
	ld l,(ix+#14)
	ld (ix+#16),l
	ld h,(ix+#15)
	ld (ix+#17),h
	ld a,(hl)
	ld (ix+#18),a
	ld (ix+#13),a
	ld a,(ix+#0f)
	ld (ix+#19),a
.l73b7
	set 5,(ix+#00)
.l73bb
	ld a,(ix+#11)
	ld (ix+#10),a
	ld (ix+#02),d
	ld (ix+#01),e
	ld a,(ix+#1f)
	and a
	jr z,l73f8
	ld a,(l756a)
	and a
	jr z,l73da
	ld a,(l7cd1)
	bit 3,a
	jr z,l73f8
.l73da
	ld a,(l756b)
	and a
	jr z,l73e7
	ld a,(l7ce6)
	bit 3,a
	jr z,l73f8
.l73e7
	ld a,(l756c)
	and a
	jr z,l73f4
	ld a,(l7cfb)
	bit 3,a
	jr z,l73f8
.l73f4
	ld (ix+#1f),#ff
.l73f8
	ret
.l73f9
	ld a,(ix+#00)
	bit 3,a
	ret z
	rla
	jr nc,l7406
	inc (ix+#12)
	ret
.l7406
	dec (ix+#12)
	ret
.l740a
	cp #c0
	jr c,l744d
	add #20
	jr c,l742e
	add #10
	jr c,l7435
	add #10
	ld c,a
	ld hl,l7649
	add hl,bc
	ld c,(hl)
	add hl,bc
	ld (ix+#0b),l
	ld (ix+#09),l
	ld (ix+#0c),h
	ld (ix+#0a),h
	jp l738c
.l742e
	inc a
	ld (ix+#11),a
	jp l738c
.l7435
	ld hl,l7682
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (ix+#14),l
	ld (ix+#15),h
	dec hl
	ld a,(hl)
	ld (ix+#0f),a
	jp l738c
.l744d
	ld hl,l71ee
	ld c,a
	add hl,bc
	ld c,(hl)
	add hl,bc
	jp (hl)
.l7455
	ld c,(ix+#00)
	bit 5,c
	jr z,l7487
	ld a,(ix+#19)
	sub #01
	ld (ix+#19),a
	jr nc,l7481
	ld a,(ix+#0f)
	ld (ix+#19),a
	ld l,(ix+#16)
	ld h,(ix+#17)
	inc hl
	ld a,(hl)
	and a
	jp m,l7481
	ld (ix+#16),l
	ld (ix+#17),h
	ld (ix+#18),a
.l7481
	ld a,(ix+#18)
	ld (ix+#13),a
.l7488 equ $ + 1
.l7487
	ld a,#00
	add (ix+#12)
	add (ix+#20)
	ld b,a
	ld l,(ix+#0b)
	ld h,(ix+#0c)
	ld a,(hl)
	inc hl
	and a
	jp p,l74a4
	ld l,(ix+#09)
	ld h,(ix+#0a)
	and #7f
.l74a4
	ld (ix+#0b),l
	ld (ix+#0c),h
	add b
	ld hl,l7589
	ld d,#00
	add a
	ld e,a
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld l,(ix+#1d)
	bit 6,l
	jr z,l7505
	ld h,a
	ld b,(ix+#1a)
	sla b
	bit 7,l
	ld a,(ix+#1c)
	jr z,l74ce
	bit 0,c
	jr nz,l74ec
.l74ce
	bit 5,l
	jr nz,l74de
	sub (ix+#1b)
	jr nc,l74e9
	set 5,(ix+#1d)
	sub a
	jr l74e9
.l74de
	add (ix+#1b)
	cp b
	jr c,l74e9
	res 5,(ix+#1d)
	ld a,b
.l74e9
	ld (ix+#1c),a
.l74ec
	ex de,hl
	srl b
	sub b
	ld e,a
	ld a,d
	ld d,#00
	jr nc,l74f7
	dec d
.l74f7
	add #a0
	jr c,l7503
.l74fb
	sla e
	rl d
	add #18
	jr nc,l74fb
.l7503
	add hl,de
	ex de,hl
.l7505
	ld a,c
	xor #01
	ld (ix+#00),a
	bit 2,c
	jr z,l7530
	ld b,(ix+#0e)
	djnz l752d
	ld c,(ix+#0d)
	bit 7,c
	jr z,l751c
	dec b
.l751c
	ld l,(ix+#07)
	ld h,(ix+#08)
	add hl,bc
	ld (ix+#07),l
	ld (ix+#08),h
	add hl,de
	ex de,hl
	jr l7530
.l752d
	ld (ix+#0e),b
.l7530
	cpl
	and #03
.l7534 equ $ + 1
	ld a,#38
	jr nz,l7541
	ld a,(l70ee)
	xor #08
	ld (l713a),a
	ld a,#07
.l7541
	ld hl,l7577
	xor (hl)
	and (ix+#21)
	xor (hl)
	ld (hl),a
	ld a,(ix+#1f)
	and a
	jp p,l7564
	and #7f
	ld (ix+#1f),a
	ld a,(ix+#21)
	and #38
	xor #ff
	and (hl)
	ld (hl),a
	ld a,#41
	ld (l713a),a
.l7564
	ex de,hl
	ld a,(ix+#13)
	ret
.l7570 equ $ + 7
.l756f equ $ + 6
.l756e equ $ + 5
.l756d equ $ + 4
.l756c equ $ + 3
.l756b equ $ + 2
.l756a equ $ + 1
.l7569
.music_end
	db #00,#00,#00,#00,#0f,#00,#00,#00
.l7578 equ $ + 7
.l7577 equ $ + 6
.l7576 equ $ + 5
.l7574 equ $ + 3
.l7572 equ $ + 1
	db #00,#00,#00,#00,#00,#00,#3f,#0f
.l7580 equ $ + 7
.l757f equ $ + 6
.l757e equ $ + 5
.l757d equ $ + 4
.l757a equ $ + 1
.l7579
	db #0f,#0f,#00,#00,#00,#00,#00,#00
.l7587 equ $ + 6
.l7586 equ $ + 5
.l7585 equ $ + 4
.l7583 equ $ + 2
.l7582 equ $ + 1
.l7581
	db #00,#00,#00,#3f,#00,#00,#00,#00
.l7589
	dw #077c,#0708,#06b0,#0640
	dw #05ec,#0594,#0544,#04f8
	dw #04b0,#0470,#042c,#03f0
	dw #03be,#0384,#0358,#0320
	dw #02f6,#02ca,#02a2,#027c
	dw #0258,#0238,#0216,#01f8
	dw #01df,#01c2,#01ac,#0190
	dw #017b,#0165,#0151,#013e
	dw #012c,#011c,#010b,#00fc
	dw #00ef,#00e1,#00d6,#00c8
	dw #00bd,#00b2,#00a8,#009f
	dw #0096,#008e,#0085,#007e
	dw #0077,#0070,#006b,#0064
	dw #005e,#0059,#0054,#004f
	dw #004b,#0047,#0042,#003f
	dw #003b,#0038,#0035,#0032
	dw #002f,#002c,#002a,#0027
	dw #0025,#0023,#0021,#001f
	dw #001d,#001c,#001a,#0019
	dw #0017,#0016,#0015,#0013
	dw #0012,#0011,#0010,#000f
	dw #000e,#000e,#000d,#000c
	dw #000b,#000b,#000a,#0009
	dw #0009,#0008,#0008,#0007
.l7649
	db #0f,#0f,#11,#13,#15,#1c,#1e,#20
.l7658 equ $ + 7
	db #22,#24,#25,#26,#27,#28,#29,#80
	db #00,#03,#87,#00,#04,#87,#04,#07
	db #8a,#0c,#00,#00,#00,#00,#00,#00
	db #80,#07,#0c,#8f,#07,#0c,#90,#03
	db #07,#8c,#04,#07,#8c,#00,#8c,#00
	db #83,#00,#84,#00,#85,#00,#87,#00
	db #81
.l7682
	dw l76a3,l76ac,l76b3,l76c5
	dw l76d7,l76df,l76e7,l76f6
	dw l7706,l7717,l7728,l773c
	dw l774d,l775e,l776e,l7771
.l76a3 equ $ + 1
	db #02,#0c,#0d,#0e,#0f,#0e,#0d,#0c
.l76ac equ $ + 2
	db #87,#02,#0d,#0e,#0f,#0e,#0d,#87
.l76b3 equ $ + 1
	db #01,#0f,#0e,#0d,#0b,#0d,#0c,#0a
	db #09,#0b,#0a,#08,#07,#09,#08,#06
.l76c5 equ $ + 3
	db #05,#87,#01,#0f,#0f,#0d,#0b,#0d
	db #0c,#0a,#09,#0b,#0a,#08,#07,#09
.l76d7 equ $ + 5
	db #08,#06,#05,#87,#01,#0c,#0d,#0f
.l76df equ $ + 5
	db #0e,#0d,#0c,#87,#01,#0c,#0d,#0e
.l76e7 equ $ + 5
	db #0d,#0c,#0b,#87,#08,#0d,#0c,#0b
	db #0a,#09,#08,#07,#06,#05,#04,#03
.l76f6 equ $ + 4
	db #02,#01,#87,#05,#0e,#0d,#0c,#0b
	db #0a,#09,#08,#07,#06,#05,#04,#03
.l7706 equ $ + 4
	db #02,#01,#87,#05,#0f,#0e,#0d,#0c
	db #0b,#0a,#09,#08,#07,#06,#05,#04
.l7717 equ $ + 5
	db #03,#02,#01,#87,#08,#0f,#0e,#0d
	db #0c,#0b,#0a,#09,#08,#07,#06,#05
.l7728 equ $ + 6
	db #04,#03,#02,#01,#87,#02,#0c,#0d
	db #0e,#0f,#0e,#0d,#0c,#0b,#0a,#09
	db #08,#07,#06,#05,#04,#03,#02,#01
.l773c equ $ + 2
	db #87,#01,#0c,#0d,#0f,#0e,#0c,#0b
	db #09,#08,#07,#06,#05,#04,#03,#02
.l774d equ $ + 3
	db #01,#87,#01,#0f,#0e,#0d,#0c,#0b
	db #0a,#09,#08,#07,#06,#05,#04,#03
.l775e equ $ + 4
	db #02,#01,#87,#01,#0e,#0d,#0c,#0b
	db #0a,#09,#08,#07,#06,#05,#04,#03
.l7771 equ $ + 7
.l776e equ $ + 4
	db #02,#01,#87,#01,#0f,#87,#01,#0c
	db #87
	ld hl,l777c
	ld b,#00
	add hl,bc
	ld c,(hl)
	add hl,bc
	jp (hl)
.l777c
	inc bc
	ld e,l
	or a
	ld hl,l756a
	ld (hl),#00
	ld hl,l7abc
	add a
	add l
	ld l,a
	jr nc,l778d
	inc h
.l778d
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#0e
	ld hl,l7ccb
.l7795
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l7795
	ld a,(l7ccc)
	ld (l7cd9),a
	ld hl,(l7ccd)
	ld (l757d),hl
	ld a,(l7cd1)
	bit 3,a
	jr nz,l77b2
	ld a,l
	ld (l7583),a
.l77b2
	ld a,(l7cd6)
	ld (l7cda),a
	ld a,(l7cd8)
	ld (l7cdf),a
	ld a,(l7cd5)
	ld hl,l7c5c
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (l7cdb),hl
	ld (l7cdd),hl
	ld a,(hl)
	ld (l7585),a
	ld hl,l756a
	inc (hl)
	ret
	ld hl,l756b
	ld (hl),#00
	ld hl,l7abc
	add a
	add l
	ld l,a
	jr nc,l77e8
	inc h
.l77e8
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#0e
	ld hl,l7ce0
.l77f0
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l77f0
	ld a,(l7ce1)
	ld (l7cee),a
	ld hl,(l7ce2)
	ld (l757f),hl
	ld a,(l7ce6)
	bit 3,a
	jr nz,l780d
	ld a,l
	ld (l7583),a
.l780d
	ld a,(l7ceb)
	ld (l7cef),a
	ld a,(l7ced)
	ld (l7cf4),a
	ld a,(l7cea)
	ld hl,l7c5c
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (l7cf0),hl
	ld (l7cf2),hl
	ld a,(hl)
	ld (l7586),a
	ld hl,l756b
	inc (hl)
	ret
	ld hl,l756c
	ld (hl),#00
	ld hl,l7abc
	add a
	add l
	ld l,a
	jr nc,l7843
	inc h
.l7843
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#0e
	ld hl,l7cf5
.l784b
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l784b
	ld a,(l7cf6)
	ld (l7d03),a
	ld hl,(l7cf7)
	ld (l7581),hl
	ld a,(l7cfb)
	bit 3,a
	jr nz,l7868
	ld a,l
	ld (l7583),a
.l7868
	ld a,(l7d00)
	ld (l7d04),a
	ld a,(l7d02)
	ld (l7d09),a
	ld a,(l7cff)
	ld hl,l7c5c
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (l7d05),hl
	ld (l7d07),hl
	ld a,(hl)
	ld (l7587),a
	ld hl,l756c
	inc (hl)
	ret
.l7890
	call l7d0a
	ld a,(l756a)
	and a
	call nz,l7958
	ld a,(l756b)
	and a
	call nz,l7a0a
	ld a,(l756c)
	and a
	ret z
	ld a,(l7cf5)
	and a
	jr nz,l78b6
	ld a,(l7d01)
	and a
	jr nz,l78b6
	ld (l756c),a
	ret
.l78b6
	dec a
	ld (l7cf5),a
	ld a,(l7d03)
	and a
	jr nz,l78ee
	ld a,(l7d01)
	and a
	jr nz,l78cc
	ld a,(l7cfe)
	and a
	jr z,l7930
.l78cc
	dec a
	ld (l7cfe),a
	ld a,(l7cf6)
	ld (l7d03),a
	ld a,(l7cfc)
	and a
	jr z,l78df
	ld a,(l7d27)
.l78df
	ld b,a
	ld a,(l7cf7)
	add b
	ld (l7581),a
	ld a,(l7cf8)
	add b
	ld (l7582),a
.l78ee
	ld hl,l7d03
	dec (hl)
	ld hl,l7d02
	ld a,(hl)
	and a
	jr z,l7900
	ld hl,l7d09
	dec (hl)
	jr nz,l7923
	ld (hl),a
.l7900
	ld a,(l7cfd)
	and a
	jr z,l7923
	jp p,l7916
	ld hl,(l7581)
	ld de,(l7cf9)
	add hl,de
	ld (l7581),hl
	jr l7923
.l7916
	ld hl,(l7581)
	ld de,(l7cf9)
	and a
	sbc hl,de
	ld (l7581),hl
.l7923
	ld a,(l7cfb)
	bit 3,a
	jr nz,l7930
	ld a,(l7581)
	ld (l7583),a
.l7930
	ld a,(l7d04)
	dec a
	ld (l7d04),a
	jr nz,l7957
	ld a,(l7d00)
	ld (l7d04),a
	ld hl,(l7d07)
	ld a,(hl)
	inc hl
	and a
	jp p,l7951
	cp #80
	jr nz,l7957
	ld hl,(l7d05)
	ld a,(hl)
	inc hl
.l7951
	ld (l7d07),hl
	ld (l7587),a
.l7957
	ret
.l7958
	ld a,(l7ccb)
	and a
	jr nz,l7968
	ld a,(l7cd7)
	and a
	jr nz,l7968
	ld (l756a),a
	ret
.l7968
	dec a
	ld (l7ccb),a
	ld a,(l7cd9)
	and a
	jr nz,l79a0
	ld a,(l7cd7)
	and a
	jr nz,l797e
	ld a,(l7cd4)
	and a
	jr z,l79e2
.l797e
	dec a
	ld (l7cd4),a
	ld a,(l7ccc)
	ld (l7cd9),a
	ld a,(l7cd2)
	and a
	jr z,l7991
	ld a,(l7d25)
.l7991
	ld b,a
	ld a,(l7ccd)
	add b
	ld (l757d),a
	ld a,(l7cce)
	add b
	ld (l757e),a
.l79a0
	ld hl,l7cd9
	dec (hl)
	ld hl,l7cd8
	ld a,(hl)
	and a
	jr z,l79b2
	ld hl,l7cdf
	dec (hl)
	jr nz,l79d5
	ld (hl),a
.l79b2
	ld a,(l7cd3)
	and a
	jr z,l79d5
	jp p,l79c8
	ld hl,(l757d)
	ld de,(l7ccf)
	add hl,de
	ld (l757d),hl
	jr l79d5
.l79c8
	ld hl,(l757d)
	ld de,(l7ccf)
	and a
	sbc hl,de
	ld (l757d),hl
.l79d5
	ld a,(l7cd1)
	bit 3,a
	jr nz,l79e2
	ld a,(l757d)
	ld (l7583),a
.l79e2
	ld a,(l7cda)
	dec a
	ld (l7cda),a
	jr nz,l7a09
	ld a,(l7cd6)
	ld (l7cda),a
	ld hl,(l7cdd)
	ld a,(hl)
	inc hl
	and a
	jp p,l7a03
	cp #80
	jr nz,l7a09
	ld hl,(l7cdb)
	ld a,(hl)
	inc hl
.l7a03
	ld (l7cdd),hl
	ld (l7585),a
.l7a09
	ret
.l7a0a
	ld a,(l7ce0)
	and a
	jr nz,l7a1a
	ld a,(l7cec)
	and a
	jr nz,l7a1a
	ld (l756b),a
	ret
.l7a1a
	dec a
	ld (l7ce0),a
	ld a,(l7cee)
	and a
	jr nz,l7a52
	ld a,(l7cec)
	and a
	jr nz,l7a30
	ld a,(l7ce9)
	and a
	jr z,l7a94
.l7a30
	dec a
	ld (l7ce9),a
	ld a,(l7ce1)
	ld (l7cee),a
	ld a,(l7ce7)
	and a
	jr z,l7a43
	ld a,(l7d26)
.l7a43
	ld b,a
	ld a,(l7ce2)
	add b
	ld (l757f),a
	ld a,(l7ce3)
	add b
	ld (l7580),a
.l7a52
	ld hl,l7cee
	dec (hl)
	ld hl,l7ced
	ld a,(hl)
	and a
	jr z,l7a64
	ld hl,l7cf4
	dec (hl)
	jr nz,l7a87
	ld (hl),a
.l7a64
	ld a,(l7ce8)
	and a
	jr z,l7a87
	jp p,l7a7a
	ld hl,(l757f)
	ld de,(l7ce4)
	add hl,de
	ld (l757f),hl
	jr l7a87
.l7a7a
	ld hl,(l757f)
	ld de,(l7ce4)
	and a
	sbc hl,de
	ld (l757f),hl
.l7a87
	ld a,(l7ce6)
	bit 3,a
	jr nz,l7a94
	ld a,(l757f)
	ld (l7583),a
.l7a94
	ld a,(l7cef)
	dec a
	ld (l7cef),a
	jr nz,l7abb
	ld a,(l7ceb)
	ld (l7cef),a
	ld hl,(l7cf2)
	ld a,(hl)
	inc hl
	and a
	jp p,l7ab5
	cp #80
	jr nz,l7abb
	ld hl,(l7cf0)
	ld a,(hl)
	inc hl
.l7ab5
	ld (l7cf2),hl
	ld (l7586),a
.l7abb
	ret
.l7abc
	dw l7af0,l7afe,l7b0c,l7b1a
	dw l7b28,l7b36,l7b44,l7b52
	dw l7b60,l7b6e,l7b7c,l7b8a
	dw l7b98,l7ba6,l7bb4,l7bc2
	dw l7bd0,l7bde,l7bec,l7bfa
	dw l7c08,l7c16,l7c24,l7c32
	dw l7c40,l7c4e
.l7af0
	db #04,#63,#1e,#00,#00,#00,#f7,#00
.l7afe equ $ + 6
	db #00,#63,#05,#01,#00,#00,#02,#05
	db #1e,#00,#00,#00,#f7,#00,#01,#63
.l7b0c equ $ + 4
	db #03,#01,#00,#00,#05,#02,#e8,#00
	db #04,#00,#fe,#00,#ff,#63,#06,#01
.l7b1a equ $ + 2
	db #00,#00,#0c,#02,#2b,#00,#00,#00
	db #f6,#00,#00,#00,#08,#01,#00,#00
.l7b28
	db #07,#63,#00,#02,#0e,#00,#fe,#00
.l7b36 equ $ + 6
	db #01,#63,#06,#02,#00,#00,#0a,#63
	db #c7,#00,#21,#00,#fe,#00,#ff,#63
.l7b44 equ $ + 4
	db #08,#01,#00,#00,#0f,#63,#20,#00
	db #01,#00,#fe,#00,#ff,#0a,#03,#01
.l7b52 equ $ + 2
	db #00,#00,#0a,#06,#01,#02,#c8,#00
	db #f6,#00,#ff,#ff,#08,#01,#00,#00
.l7b60
	db #0a,#63,#1f,#00,#00,#00,#f7,#00
.l7b6e equ $ + 6
	db #ff,#63,#05,#02,#00,#00,#19,#63
	db #14,#00,#01,#00,#f7,#00,#ff,#00
.l7b7c equ $ + 4
	db #00,#02,#00,#02,#18,#0a,#00,#04
	db #86,#02,#fe,#00,#01,#00,#08,#03
.l7b8a equ $ + 2
	db #00,#0a,#06,#63,#09,#05,#11,#00
	db #f6,#00,#ff,#00,#08,#01,#00,#00
.l7b98
	db #03,#63,#12,#00,#12,#00,#f7,#00
.l7ba6 equ $ + 6
	db #ff,#00,#03,#01,#00,#00,#0a,#ff
	db #1f,#00,#02,#00,#f7,#00,#01,#63
.l7bb4 equ $ + 4
	db #01,#01,#00,#00,#4b,#ff,#88,#01
	db #01,#04,#fe,#00,#ff,#63,#00,#05
.l7bc2 equ $ + 2
	db #00,#00,#2c,#0f,#08,#01,#04,#00
	db #fe,#00,#ff,#63,#03,#03,#00,#00
.l7bd0
	db #07,#03,#04,#00,#02,#00,#f7,#00
.l7bde equ $ + 6
	db #01,#0a,#08,#02,#00,#63,#0a,#05
	db #c1,#00,#14,#00,#f6,#01,#ff,#ff
.l7bec equ $ + 4
	db #08,#01,#00,#00,#06,#63,#09,#05
	db #11,#00,#f6,#00,#ff,#00,#03,#01
.l7bfa equ $ + 2
	db #00,#00,#1e,#04,#40,#00,#04,#00
	db #fe,#00,#ff,#63,#01,#01,#00,#00
.l7c08
	db #19,#03,#00,#00,#06,#00,#f7,#ff
.l7c16 equ $ + 6
	db #ff,#63,#08,#03,#00,#00,#04,#05
	db #0c,#00,#00,#00,#f7,#00,#01,#63
.l7c24 equ $ + 4
	db #04,#01,#00,#00,#05,#02,#e8,#01
	db #08,#00,#fe,#00,#01,#63,#06,#01
.l7c32 equ $ + 2
	db #00,#00,#14,#ff,#08,#01,#02,#00
	db #fe,#00,#ff,#63,#08,#03,#00,#00
.l7c40
	db #14,#05,#c1,#00,#14,#00,#f6,#01
.l7c4e equ $ + 6
	db #ff,#ff,#00,#02,#00,#00,#28,#09
	db #1a,#00,#03,#00,#f6,#01,#ff,#0a
	db #08,#04,#00,#00
.l7c5c
	dw l7c6e,l7c7d,l7c96,l7c9b
	dw l7cac,l7cb4,l7cb2,l7cba
	dw l7cbc
.l7c6e
	db #0f,#0e,#0d,#0b,#0a,#09,#08,#07
.l7c7d equ $ + 7
	db #06,#05,#04,#03,#02,#01,#ff,#06
	db #08,#0a,#0b,#0c,#0d,#0e,#0e,#0e
	db #0d,#0d,#0c,#0c,#0b,#0b,#09,#08
	db #07,#06,#05,#04,#03,#02,#01,#ff
.l7c9b equ $ + 5
.l7c96
	db #02,#06,#08,#00,#ff,#06,#08,#0a
	db #0b,#0c,#0b,#0a,#09,#08,#07,#06
.l7cac equ $ + 6
	db #05,#04,#03,#02,#01,#ff,#01,#04
.l7cb4 equ $ + 6
.l7cb2 equ $ + 4
	db #07,#09,#0c,#80,#0d,#0b,#09,#07
.l7cbc equ $ + 6
.l7cba equ $ + 4
	db #05,#03,#01,#ff,#0a,#80,#0e,#0d
	db #0c,#0b,#0a,#09,#08,#07,#06,#05
.l7ccd equ $ + 7
.l7ccc equ $ + 6
.l7ccb equ $ + 5
	db #04,#03,#02,#01,#ff,#00,#00,#00
.l7cd5 equ $ + 7
.l7cd4 equ $ + 6
.l7cd3 equ $ + 5
.l7cd2 equ $ + 4
.l7cd1 equ $ + 3
.l7ccf equ $ + 1
.l7cce
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7cdd equ $ + 7
.l7cdb equ $ + 5
.l7cda equ $ + 4
.l7cd9 equ $ + 3
.l7cd8 equ $ + 2
.l7cd7 equ $ + 1
.l7cd6
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7ce4 equ $ + 6
.l7ce3 equ $ + 5
.l7ce2 equ $ + 4
.l7ce1 equ $ + 3
.l7ce0 equ $ + 2
.l7cdf equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7ced equ $ + 7
.l7cec equ $ + 6
.l7ceb equ $ + 5
.l7cea equ $ + 4
.l7ce9 equ $ + 3
.l7ce8 equ $ + 2
.l7ce7 equ $ + 1
.l7ce6
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7cf5 equ $ + 7
.l7cf4 equ $ + 6
.l7cf2 equ $ + 4
.l7cf0 equ $ + 2
.l7cef equ $ + 1
.l7cee
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7cfd equ $ + 7
.l7cfc equ $ + 6
.l7cfb equ $ + 5
.l7cf9 equ $ + 3
.l7cf8 equ $ + 2
.l7cf7 equ $ + 1
.l7cf6
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7d05 equ $ + 7
.l7d04 equ $ + 6
.l7d03 equ $ + 5
.l7d02 equ $ + 4
.l7d01 equ $ + 3
.l7d00 equ $ + 2
.l7cff equ $ + 1
.l7cfe
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7d09 equ $ + 3
.l7d07 equ $ + 1
	db #00,#00,#00,#00
.l7d0a
	ld a,(l7d25)
	and #48
	adc #38
	sla a
	sla a
	ld hl,l7d28
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	ld a,(hl)
	ret
.l7d28 equ $ + 3
.l7d27 equ $ + 2
.l7d26 equ $ + 1
.l7d25
	db #ff,#80,#1b,#34
.l7d29
	db #26
	dw l7d5e,l7d4c,l7d6a
	db #2a
	dw l7e32,l7e30,l7e34
	db #24
	dw l7e6a,l7e66,l7e6e
	db #20
	dw l7ece,l7ed0,l7ed2
	db #37
	dw l7ef4,l7ef2,l7ef6
.l7d4c
	dw l7d76,l7f16,l7d76,l7f13
	dw l7d76,l7f10,l7d76,l7f19
	dw #0000
.l7d5e
	dw l7dbc,l7dbc,l7dd4,l7dbc
	dw l7de5,#0000
.l7d6a
	dw l7df8,l7df8,l7e10,l7df8
	dw l7e1d,#0000
.l7d76
	db #8a,#88,#01,#01,#d9,#e5,#18,#13
	db #18,#e1,#13,#15,#17,#e5,#18,#13
	db #18,#e1,#13,#15,#17,#e0,#88,#01
	db #01,#1d,#29,#18,#24,#15,#21,#11
	db #1d,#16,#22,#18,#24,#1d,#29,#18
	db #24,#15,#21,#11,#1d,#15,#21,#18
	db #24,#88,#01,#01,#e5,#18,#13,#18
	db #e1,#13,#15,#17,#e5,#18,#13,#e1
.l7dbc equ $ + 6
	db #0c,#18,#17,#e5,#18,#87,#8a,#88
	db #01,#01,#e1,#d7,#24,#d2,#28,#28
	db #8f,#28,#28,#8f,#d7,#24,#84,#ff
.l7dd4 equ $ + 6
	db #07,#28,#30,#8f,#2b,#87,#e5,#d9
	db #30,#d8,#e1,#2d,#2e,#30,#e5,#d9
.l7de5 equ $ + 7
	db #30,#d8,#e1,#29,#2b,#2d,#87,#e1
	db #d7,#24,#d2,#28,#28,#8f,#28,#28
	db #8f,#d8,#2b,#2f,#e5,#84,#01,#10
.l7df8 equ $ + 2
	db #2b,#87,#8a,#88,#01,#01,#e1,#d8
	db #28,#d3,#2b,#2b,#8f,#2b,#2b,#8f
	db #d8,#28,#84,#ff,#07,#2b,#34,#8f
.l7e10 equ $ + 2
	db #30,#87,#35,#34,#32,#30,#32,#34
.l7e1d equ $ + 7
	db #35,#34,#32,#2d,#2f,#30,#87,#e1
	db #d8,#28,#d3,#2b,#2b,#8f,#2b,#2b
	db #8f,#d8,#30,#32,#e5,#84,#01,#10
	db #30,#87
.l7e34 equ $ + 4
.l7e32 equ $ + 2
.l7e30
	dw l7e36,l7e47,l7e57
.l7e36
	db #90,#8a,#88,#01,#01,#d2,#e2,#11
	db #11,#e0,#18,#18,#18,#d8,#e8,#1d
.l7e47 equ $ + 1
	db #8e,#90,#8a,#88,#01,#01,#d8,#e2
	db #1d,#21,#e0,#24,#24,#24,#e7,#21
.l7e57 equ $ + 1
	db #8e,#8a,#88,#01,#01,#d8,#e2,#21
	db #24,#e0,#28,#28,#28,#e7,#29,#8e
.l7e6a equ $ + 4
.l7e66
	dw l7e72,#0000,l7e84,#0000
.l7e6e
	dw l7ea9,#0000
.l7e72
	db #95,#0d,#89,#01,#8a,#88,#01,#01
	db #d9,#e5,#18,#13,#18,#e1,#13,#15
.l7e84 equ $ + 2
	db #17,#87,#8a,#88,#01,#01,#e1,#d7
	db #28,#d2,#24,#24,#8f,#24,#24,#8f
	db #d7,#24,#84,#ff,#07,#26,#28,#8f
	db #29,#28,#d2,#24,#24,#8f,#24,#24
.l7ea9 equ $ + 7
	db #8f,#d8,#24,#26,#e5,#24,#87,#8a
	db #88,#01,#01,#e1,#d8,#2b,#d3,#28
	db #28,#8f,#28,#28,#8f,#d8,#28,#84
	db #ff,#07,#29,#2b,#8f,#2d,#2b,#d3
	db #28,#28,#8f,#28,#28,#8f,#d8,#28
	db #29,#e5,#28,#87
.l7ed2 equ $ + 4
.l7ed0 equ $ + 2
.l7ece
	dw l7ed4,l7ede,l7ee8
.l7ed4
	db #8a,#88,#01,#01,#d3,#e0,#2b,#e1
.l7ede equ $ + 2
	db #2b,#8e,#8a,#88,#01,#01,#d3,#e0
.l7ee8 equ $ + 4
	db #1f,#e1,#1f,#8e,#8a,#88,#01,#01
	db #d3,#e0,#26,#e3,#26,#8e
.l7ef2
		dw l7ef8
.l7ef4
		dw l7f00
.l7ef6
		dw l7f08
.l7ef8
	db #8a,#88,#01,#01
	db #d3,#e3,#27,#8e
.l7f00
	db #8a,#88,#01,#01
	db #d3,#e3,#2b,#8e
.l7f08
	db #8a,#88,#01,#01
.l7f13 equ $ + 7
.l7f10 equ $ + 4
	db #d3,#e3,#30,#8e,#89,#fd,#87,#89
.l7f19 equ $ + 5
.l7f16 equ $ + 2
	db #fe,#87,#89,#ff,#87,#89,#00,#87
	db #00

.game_name
	db "High Steel",0
.game_year
	db "1989",0
.game_publisher
	db "Alternative Software",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
